home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / ScreenSavers / BackSpaceViews / SpiralView.BackModule / Source / SpiralWraps.psw < prev    next >
Encoding:
Text File  |  1996-01-31  |  245 b   |  12 lines
  1. /* PostScript functions to draw spirals */
  2.  
  3. defineps PSLSetColor(float r,g,b)
  4.     r g b setrgbcolor
  5. endps
  6.  
  7. /* draw and fill an arc between at degree angle */
  8. defineps PSLDrawArc(float x,y, r, degree)
  9.     x y moveto
  10.     x y r degree degree arc fill
  11. endps
  12.